home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / spin.exe / SPIN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-12-11  |  6.2 KB  |  99 lines
  1. Jeffrey Richter's Spin Button
  2. Form1
  3. Entry
  4. SpinButton
  5. Sample
  6. Swatch
  7. CLabel
  8. wwwwp
  9. wwwwp
  10. wwwwp
  11. "wwww
  12. CLabel
  13. Green:
  14. Entry
  15. SpinButton
  16. Sample
  17. wwww~
  18. wwwwp
  19. wwwwp
  20. wwwwp
  21. CLabel
  22. Blue:
  23. Entry
  24. SpinButton
  25. Sample
  26. GetTickCount!
  27. GetAsyncKeyState
  28. Colors
  29.     Form_Load
  30. SpinButton
  31. Picture-
  32. EntryU
  33. Height
  34. Sample
  35.     BackColor
  36. Swatchh
  37. Entry_KeyPress
  38. Index
  39. KeyAscii
  40. Entry_Change
  41. SpinButton_MouseDownm
  42. Button
  43. Shift
  44. VK_LBUTTON
  45. TIME_DELAY
  46. dwEvent
  47. SpinIt
  48. Break
  49. Swatch_Click
  50. Text1
  51. Text2
  52. Text3
  53. Form_Unload
  54. Cancelt
  55.  Jeffrey M. Richter's Spin Button Control from Windows 3: A Developer's Guiden
  56.  Adapted for Visual Basic by Costas Kitsos with Mr. Richter's kind permissionn
  57.  Windows API functions used by the Spin Button Control
  58.  Shared Integer Array holding the RGB Colors
  59. Form_Load
  60. Set to the Normal Spin Buttonr
  61. Make sure Control heights match'
  62. Initial value is in the Mid Range'
  63. Each color is set to 128
  64. Set the Colors
  65. Entry_KeyPress
  66. Accept only numeric input and the backspace keyh
  67. Entry_Change
  68. The Max value of any color can be 255k
  69. Update the Array
  70. Update the Sample Picture box colors
  71.  Update the Swatch Picture box color
  72. SpinButton_MouseDown
  73.  Time delay between Spin Button Events
  74.  Make sure that the Spin Button Event occurs at least once
  75.  Do this while the user holds down the left mouse button
  76.  Break out of the loop if we haven't waited long enoughn
  77.  If the user wants to increment the counter 
  78.  Set Picture to Up
  79.  Exit if value is equal to Max (255)
  80.  Update the Entry TextBox
  81.  Perform the changes
  82.  If the user wants to decrement the counter
  83.  Set Picture to Down
  84.  Exit if value is equal to Min (0)
  85.  Update the Entry TextBoxo
  86.  Perform the changes
  87.  Save the last time the Spin Button was active
  88.  Set the Picture to Normal
  89.  Set the focus to the Entry TextBox 
  90.  We're Done
  91. Swatch_Click
  92. Spin Button Control"
  93. From 'Windows 3: A Developer's Guide'"
  94. by Jeffrey M. Richter, M&T Books 1991"
  95. Adapted for Visual Basic by Costas Kitsos"
  96. with permission from the author.
  97. About Spin Button"
  98. Form_Unload
  99.